Option Explicit
Sub B_Sample018()
    Dim myRng As Range
    Set myRng = Range("B2")		'Nxs
    With myRng
        MsgBox .Top			'I
        MsgBox .Left			'I
    End With
    Set myRng = Nothing			'
End Sub
